/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / System7 tools / Frontier / Frontier Runtime 2.0.1.sit / Frontier Runtime 2.0.1 / Extras / Sample Scripts / Recently Changed Files….rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 fe 00 02 00 00 | 01 08 00 00 05 a3 00 04 |........|........|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 06 54 00 00 a4 be | 0c 3a a6 94 20 e5 00 00 |...T....|.:.. ...|
|00000050| 00 31 00 00 00 7f 00 f0 | 02 32 02 91 00 00 00 00 |.1......|.2......|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 72 |........|....on r|
|00000080| 65 63 65 6e 74 63 68 61 | 6e 67 65 73 20 28 70 61 |ecentcha|nges (pa|
|00000090| 74 68 29 20 c7 63 72 65 | 61 74 65 73 20 61 20 66 |th) .cre|ates a f|
|000000a0| 6f 6c 64 65 72 20 66 75 | 6c 6c 20 6f 66 20 61 6c |older fu|ll of al|
|000000b0| 69 61 73 65 73 20 6f 66 | 20 66 69 6c 65 73 20 74 |iases of| files t|
|000000c0| 68 61 74 20 68 61 76 65 | 20 63 68 61 6e 67 65 64 |hat have| changed|
|000000d0| 0d 09 0d 09 6c 6f 63 61 | 6c 20 28 6d 61 72 6b 74 |....loca|l (markt|
|000000e0| 69 6d 65 29 0d 09 62 75 | 6e 64 6c 65 20 c7 70 72 |ime)..bu|ndle .pr|
|000000f0| 6f 6d 70 74 20 74 68 65 | 20 75 73 65 72 20 66 6f |ompt the| user fo|
|00000100| 72 20 61 20 64 61 74 65 | 0d 09 09 6c 6f 63 61 6c |r a date|...local|
|00000110| 20 28 73 20 3d 20 22 38 | 2f 31 2f 39 32 3b 20 31 | (s = "8|/1/92; 1|
|00000120| 32 3a 30 30 3a 30 30 20 | 41 4d 22 29 0d 09 09 69 |2:00:00 |AM")...i|
|00000130| 66 20 6e 6f 74 20 64 69 | 61 6c 6f 67 2e 61 73 6b |f not di|alog.ask|
|00000140| 20 28 22 47 61 74 68 65 | 72 20 66 69 6c 65 73 20 | ("Gathe|r files |
|00000150| 63 68 61 6e 67 65 64 20 | 73 69 6e 63 65 20 77 68 |changed |since wh|
|00000160| 65 6e 3f 22 2c 20 40 73 | 29 0d 09 09 09 72 65 74 |en?", @s|)....ret|
|00000170| 75 72 6e 20 28 66 61 6c | 73 65 29 0d 09 09 6d 61 |urn (fal|se)...ma|
|00000180| 72 6b 74 69 6d 65 20 3d | 20 64 61 74 65 20 28 73 |rktime =| date (s|
|00000190| 29 0d 09 0d 09 6c 6f 63 | 61 6c 20 28 66 6f 6c 64 |)....loc|al (fold|
|000001a0| 65 72 2c 20 64 65 73 74 | 66 6f 6c 64 65 72 29 0d |er, dest|folder).|
|000001b0| 09 62 75 6e 64 6c 65 20 | c7 63 72 65 61 74 65 20 |.bundle |.create |
|000001c0| 61 20 6e 65 77 20 66 6f | 6c 64 65 72 20 74 6f 20 |a new fo|lder to |
|000001d0| 68 6f 6c 64 20 74 68 65 | 20 61 6c 69 61 73 65 73 |hold the| aliases|
|000001e0| 0d 09 09 66 6f 6c 64 65 | 72 20 3d 20 66 69 6c 65 |...folde|r = file|
|000001f0| 2e 66 6f 6c 64 65 72 46 | 72 6f 6d 50 61 74 68 20 |.folderF|romPath |
|00000200| 28 70 61 74 68 29 0d 09 | 09 64 65 73 74 66 6f 6c |(path)..|.destfol|
|00000210| 64 65 72 20 3d 20 66 6f | 6c 64 65 72 20 2b 20 22 |der = fo|lder + "|
|00000220| 52 65 63 65 6e 74 6c 79 | 20 43 68 61 6e 67 65 64 |Recently| Changed|
|00000230| 20 46 69 6c 65 73 3a 22 | 0d 09 09 69 66 20 66 69 | Files:"|...if fi|
|00000240| 6c 65 2e 65 78 69 73 74 | 73 20 28 64 65 73 74 66 |le.exist|s (destf|
|00000250| 6f 6c 64 65 72 29 0d 09 | 09 09 66 69 6c 65 2e 64 |older)..|..file.d|
|00000260| 65 6c 65 74 65 46 6f 6c | 64 65 72 20 28 64 65 73 |eleteFol|der (des|
|00000270| 74 66 6f 6c 64 65 72 29 | 0d 09 09 66 69 6c 65 2e |tfolder)|...file.|
|00000280| 6e 65 77 46 6f 6c 64 65 | 72 20 28 64 65 73 74 66 |newFolde|r (destf|
|00000290| 6f 6c 64 65 72 29 20 0d | 09 0d 09 6c 6f 63 61 6c |older) .|...local|
|000002a0| 20 28 63 74 67 61 74 68 | 65 72 65 64 20 3d 20 30 | (ctgath|ered = 0|
|000002b0| 29 0d 09 6f 6e 20 72 65 | 63 65 6e 74 6c 79 63 68 |)..on re|centlych|
|000002c0| 61 6e 67 65 64 20 28 66 | 29 20 c7 72 65 74 75 72 |anged (f|) .retur|
|000002d0| 6e 20 74 72 75 65 20 69 | 66 20 74 68 65 20 66 69 |n true i|f the fi|
|000002e0| 6c 65 20 6d 61 74 63 68 | 65 73 20 6f 75 72 20 73 |le match|es our s|
|000002f0| 65 61 72 63 68 20 63 72 | 69 74 65 72 69 61 0d 09 |earch cr|iteria..|
|00000300| 09 72 65 74 75 72 6e 20 | 28 66 69 6c 65 2e 6d 6f |.return |(file.mo|
|00000310| 64 69 66 69 65 64 20 28 | 66 29 20 3e 20 6d 61 72 |dified (|f) > mar|
|00000320| 6b 74 69 6d 65 29 0d 09 | 6f 6e 20 64 6f 67 61 74 |ktime)..|on dogat|
|00000330| 68 65 72 20 28 70 61 74 | 68 29 0d 09 09 6c 6f 63 |her (pat|h)...loc|
|00000340| 61 6c 20 28 66 29 0d 09 | 09 66 69 6c 65 6c 6f 6f |al (f)..|.fileloo|
|00000350| 70 20 28 66 20 69 6e 20 | 70 61 74 68 29 20 c7 6c |p (f in |path) .l|
|00000360| 6f 6f 70 20 6f 76 65 72 | 20 61 6c 6c 20 74 68 65 |oop over| all the|
|00000370| 20 66 69 6c 65 73 20 69 | 6e 20 74 68 65 20 70 61 | files i|n the pa|
|00000380| 74 68 0d 09 09 09 69 66 | 20 66 69 6c 65 2e 69 73 |th....if| file.is|
|00000390| 46 6f 6c 64 65 72 20 28 | 66 29 20 c7 69 74 27 73 |Folder (|f) .it's|
|000003a0| 20 61 20 66 6f 6c 64 65 | 72 2c 20 72 65 63 75 72 | a folde|r, recur|
|000003b0| 73 65 0d 09 09 09 09 69 | 66 20 66 20 ad 20 64 65 |se.....i|f f . de|
|000003c0| 73 74 66 6f 6c 64 65 72 | 20 c7 64 6f 6e 27 74 20 |stfolder| .don't |
|000003d0| 67 6f 20 69 6e 74 6f 20 | 74 68 65 20 6e 65 77 20 |go into |the new |
|000003e0| 66 6f 6c 64 65 72 0d 09 | 09 09 09 09 64 6f 67 61 |folder..|....doga|
|000003f0| 74 68 65 72 20 28 66 29 | 20 0d 09 09 09 65 6c 73 |ther (f)| ....els|
|00000400| 65 20 c7 69 74 27 73 20 | 61 20 66 69 6c 65 0d 09 |e .it's |a file..|
|00000410| 09 09 09 6d 73 67 20 28 | 66 69 6c 65 2e 66 69 6c |...msg (|file.fil|
|00000420| 65 46 72 6f 6d 50 61 74 | 68 20 28 66 29 29 0d 09 |eFromPat|h (f))..|
|00000430| 09 09 09 69 66 20 72 65 | 63 65 6e 74 6c 79 63 68 |...if re|centlych|
|00000440| 61 6e 67 65 64 20 28 66 | 29 20 c7 69 74 20 6d 61 |anged (f|) .it ma|
|00000450| 74 63 68 65 73 20 74 68 | 65 20 6c 6f 63 61 6c 20 |tches th|e local |
|00000460| 73 63 72 69 70 74 27 73 | 20 63 72 69 74 65 72 69 |script's| criteri|
|00000470| 61 0d 09 09 09 09 09 6c | 6f 63 61 6c 20 28 64 65 |a......l|ocal (de|
|00000480| 73 74 66 69 6c 65 20 3d | 20 64 65 73 74 66 6f 6c |stfile =| destfol|
|00000490| 64 65 72 20 2b 20 66 69 | 6c 65 2e 66 69 6c 65 46 |der + fi|le.fileF|
|000004a0| 72 6f 6d 50 61 74 68 20 | 28 66 29 29 0d 09 09 09 |romPath |(f))....|
|000004b0| 09 09 69 66 20 66 69 6c | 65 2e 65 78 69 73 74 73 |..if fil|e.exists|
|000004c0| 20 28 64 65 73 74 66 69 | 6c 65 29 0d 09 09 09 09 | (destfi|le).....|
|000004d0| 09 09 66 69 6c 65 2e 64 | 65 6c 65 74 65 20 28 64 |..file.d|elete (d|
|000004e0| 65 73 74 66 69 6c 65 29 | 0d 09 09 09 09 09 66 69 |estfile)|......fi|
|000004f0| 6c 65 2e 6e 65 77 41 6c | 69 61 73 20 28 66 2c 20 |le.newAl|ias (f, |
|00000500| 64 65 73 74 66 69 6c 65 | 29 20 c7 63 72 65 61 74 |destfile|) .creat|
|00000510| 65 20 74 68 65 20 61 6c | 69 61 73 0d 09 09 09 09 |e the al|ias.....|
|00000520| 09 63 74 67 61 74 68 65 | 72 65 64 2b 2b 0d 09 64 |.ctgathe|red++..d|
|00000530| 6f 67 61 74 68 65 72 20 | 28 66 6f 6c 64 65 72 29 |ogather |(folder)|
|00000540| 0d 09 0d 09 69 66 20 63 | 74 67 61 74 68 65 72 65 |....if c|tgathere|
|00000550| 64 20 3e 20 30 0d 09 09 | 66 69 6c 65 2e 6f 70 65 |d > 0...|file.ope|
|00000560| 6e 46 6f 6c 64 65 72 20 | 28 64 65 73 74 66 6f 6c |nFolder |(destfol|
|00000570| 64 65 72 29 0d 09 65 6c | 73 65 0d 09 09 66 69 6c |der)..el|se...fil|
|00000580| 65 2e 64 65 6c 65 74 65 | 46 6f 6c 64 65 72 20 28 |e.delete|Folder (|
|00000590| 64 65 73 74 66 6f 6c 64 | 65 72 29 0d 09 09 73 20 |destfold|er)...s |
|000005a0| 3d 20 66 69 6c 65 2e 66 | 69 6c 65 46 72 6f 6d 50 |= file.f|ileFromP|
|000005b0| 61 74 68 20 28 66 6f 6c | 64 65 72 29 0d 09 09 73 |ath (fol|der)...s|
|000005c0| 20 3d 20 22 54 68 65 72 | 65 20 77 65 72 65 20 6e | = "Ther|e were n|
|000005d0| 6f 20 72 65 63 65 6e 74 | 20 63 68 61 6e 67 65 73 |o recent| changes|
|000005e0| 20 69 6e 20 74 68 65 20 | d2 22 20 2b 20 73 20 2b | in the |." + s +|
|000005f0| 20 22 d3 20 66 6f 6c 64 | 65 72 2e 22 0d 09 09 64 | ". fold|er."...d|
|00000600| 69 61 6c 6f 67 2e 61 6c | 65 72 74 20 28 73 29 0d |ialog.al|ert (s).|
|00000610| 09 72 65 74 75 72 6e 20 | 28 74 72 75 65 29 0d 80 |.return |(true)..|
|00000620| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000630| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000650| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00000680| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 80 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000006f0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 80 00 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+